home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Reference / DevCon / Washington_1988 / DevCon88.1 / Takeover / propjoy.c < prev   
Encoding:
C/C++ Source or Header  |  1992-08-27  |  4.7 KB  |  221 lines
  1. /******************************************************************************
  2. *
  3. *   Source Control
  4. *   --------------
  5. *   $Header: propjoy.c,v 34.1 85/11/24 17:59:44 bart Exp $
  6. *
  7. *   $Locker:  $
  8. *
  9. *   $Log:   propjoy.c,v $
  10. *   Revision 34.1  85/11/24  17:59:44  bart
  11. *   be system compatible
  12. *   
  13. *   Revision 34.0  86/11/21  16:35:51  bart
  14. *   added to rcs for updating
  15. *
  16. * Copyright (c) 1988 Commodore-Amiga, Inc.
  17. * 
  18. * Executables based on this information may be used in software
  19. * for Commodore Amiga computers.  All other rights reserved.
  20. * 
  21. * This information is provided "as is"; no warranties are made.
  22. * All use is at your own risk, and no liability or responsibility is assumed.
  23. *
  24. ******************************************************************************/
  25.  
  26. /* main.c - test program for add/rem tof task - bart - 05.19.86 */
  27. /* propjoy.c modified program for proportional controller - bart - 11.21.86 */
  28.  
  29. #include <exec/types.h>
  30. #include <exec/nodes.h>
  31. #include <exec/execbase.h>
  32. #include <exec/execname.h>
  33.  
  34. #include <graphics/gfxbase.h>
  35. #include <graphics/graphint.h>
  36.  
  37. #include <hardware/cia.h>
  38. #include <hardware/custom.h>
  39. #include <hardware/intbits.h>
  40.  
  41. #include <resources/potgo.h>
  42.  
  43. #define V1_POINT_2  33
  44.  
  45. #define NUM_SERVERS 2
  46.  
  47. #define MAX_COUNT   (UWORD)~1        /* do it for a while */
  48.  
  49. /* use system defined hard addresses */
  50.  
  51. extern struct Custom custom;
  52.  
  53. /* use system defined addresses for potgo and pot1dat */
  54.  
  55. #define POTGO        &custom.potgo
  56. #define POT0DAT        &custom.pot0dat
  57. #define POT1DAT        &custom.pot1dat
  58.  
  59. /* vertical blank interrupt server priority   */
  60.  
  61. #define HIGHINTPRI 127L        /* needs to be replaced with priority relative */
  62. #define LOWINTPRI -127L        /* needs to be replaced with priority relative */
  63.  
  64. /* bit number defines for potgo ... */
  65.  
  66. #define START_B        0    
  67.  
  68. #define DATRX_B        8    
  69. #define DATRY_B        10
  70.  
  71. #define DATLX_B        12    
  72. #define DATLY_B        14
  73.  
  74. /* masks ... */
  75.  
  76. #define START_F        (1L << START_B)
  77. #define DATRX_F        (1L << DATRX_B)
  78. #define DATRY_F        (1L << DATRY_B) 
  79. #define DATLX_F        (1L << DATLX_B)
  80. #define DATLY_F        (1L << DATLY_B) 
  81.  
  82. #define RPOTX        (START_F | DATRX_F) 
  83. #define RPOTY        (START_F | DATRY_F) 
  84. #define RPOTXY        (START_F | DATRX_F | DATRY_F) 
  85.  
  86. #define LPOTX        (START_F | DATLX_F) 
  87. #define LPOTY        (START_F | DATLY_F) 
  88. #define LPOTXY        (START_F | DATLX_F | DATLY_F) 
  89.  
  90. struct ExecBase *ExecBase = NULL;
  91. struct GfxBase *GfxBase = NULL;
  92. struct PotgoBase *PotgoBase = NULL;
  93.  
  94. /* global storage for potdat */
  95.  
  96. UWORD oldbits = NULL;
  97. UWORD potbits = NULL;
  98. ULONG potdat = NULL;
  99.  
  100. /* create server-task to read the proportional joysticks,*/ 
  101. /* update potdat, and then poke potgo to start next data read */
  102.  
  103. /* reserve space for the interrupt servers */
  104. struct Isrvstr server[NUM_SERVERS] = {NULL};
  105.  
  106. first_server(i)
  107. int i;
  108. {
  109.     /* read previous proportional joystick values */
  110.     potdat = *(ULONG *)POT0DAT;
  111.  
  112.     /* poke potgo, restore old bits */
  113.     WritePotgo(oldbits,((~1)<<8)|oldbits);
  114.  
  115.     /* be nice -- let other servers run, too */
  116.     return(NULL);
  117. }
  118.  
  119. second_server(i)
  120. int i;
  121. {
  122.     /* poke potgo, start prop joystick read  */
  123.     WritePotgo(potbits,((~1)<<8)|potbits);
  124.  
  125.     /* be nice -- let other servers run, too */
  126.     return(NULL);
  127. }
  128.  
  129.  
  130. main()
  131. {
  132.     LONG error = FALSE;
  133.     struct Isrvstr *iserver[NUM_SERVERS];
  134.     LONG i;
  135.  
  136.     /* set server priorities */ 
  137.     server[0].is_Node.ln_Pri = HIGHINTPRI;  
  138.     server[1].is_Node.ln_Pri = LOWINTPRI;   
  139.  
  140.     /* set up server pointers */
  141.     iserver[0] = &server[0];
  142.     iserver[1] = &server[1];
  143.  
  144.     if((ExecBase = (struct ExecBase *)OpenLibrary(EXECNAME,V1_POINT_2)) != NULL)
  145.     {
  146.     if((GfxBase = (struct GfxBase *)
  147.         OpenLibrary("graphics.library",V1_POINT_2)) != NULL)
  148.     {
  149.  
  150.         if((PotgoBase = OpenResource(POTGONAME,V1_POINT_2)) != NULL)
  151.         {
  152.  
  153.         /* remember currently used bits */
  154.         oldbits = ~(AllocPotBits(~1));
  155.  
  156.         /* restore previous state of bit allocation */
  157.         FreePotBits(~oldbits);
  158.  
  159.         /* now attempt to allocate start potbit */
  160.         potbits = AllocPotBits(START_F);
  161.  
  162.         Forbid();   
  163.  
  164.         /* add interrupt servers */
  165.  
  166.         AddTOF(iserver[0],first_server,0);
  167.  
  168.         AddTOF(iserver[1],second_server,1);
  169.  
  170.         Permit();
  171.  
  172.         /* loop until done */
  173.  
  174.         for(i=0; i < MAX_COUNT; i++)
  175.         {
  176.             /* wait for server to update pot values */
  177.             WaitTOF();
  178.  
  179.             /* only output information once every second */
  180.             if(!(i %  ExecBase->VBlankFrequency))
  181.             {
  182.             }
  183.         }
  184.  
  185.         Forbid();   
  186.  
  187.         for(i=0; i < NUM_SERVERS; i++)
  188.         {
  189.             RemTOF(iserver[i]);
  190.         }
  191.  
  192.         Permit();
  193.  
  194.         /* free potbits */
  195.  
  196.         FreePotBits(potbits);
  197.  
  198.         CloseLibrary(GfxBase);
  199.         }
  200.         else
  201.         {
  202.         error = TRUE;
  203.         }
  204.     }
  205.     else
  206.     {
  207.         error = TRUE;
  208.     }
  209.  
  210.     CloseLibrary(ExecBase);
  211.  
  212.     }
  213.     else
  214.     {
  215.     error = TRUE;
  216.     }
  217.  
  218.     /* return error code */
  219.     exit(error);
  220. }
  221.